has-prefix["str"] ket returns |yes> if the ket has the given prefix
has-prefix["not "] |not sitting at the beach> |yes> has-prefix["not "] |sitting at the beach> |no>